home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / A-COMAL Series / (k)aac.d64 / payment.proc < prev    next >
Text File  |  2007-02-28  |  1KB  |  29 lines
  1. 9000 //═ONTHLY PAYMENT COMPUTATION, BASED ON PRINCIPAL OF LOAN,
  2. 9010 //ANNUAL PERCENTAGE RATE OF LOAN, AND
  3. 9020 //NUMBER OF MONTHS OVER WHICH LOAN WILL BE PAID BACK.
  4. 9030 //
  5. 9040 PROC PAYMENT(PRINCIPAL,RATE,MONTHS) //"╨ARAMETERS" IN PARENTHESES.
  6. 9050   IF RATE>1 THEN // ╬OTE MULTIPLE CONDITIONS IN "IF" TEST.
  7. 9060     RATE:=RATE/1200
  8. 9070   ELSE // ╔F THE "IF" ABOVE IS NOT TRUE THEN...
  9. 9080     RATE:=RATE/12
  10. 9090   ENDIF 
  11. 9100   NUMERATOR:=PRINCIPAL*RATE*(1+RATE)^MONTHS
  12. 9110   DENOMINATOR:=(1+RATE)^MONTHS-1
  13. 9120   MONTHLY'PAYMENT:=NUMERATOR/DENOMINATOR
  14. 9130   PRINT 
  15. 9140   PRINT 
  16. 9150   PRINT USING "═ONTHLY PAYMENT: $#######.##": MONTHLY'PAYMENT
  17. 9160   SUMMARIZE // ├ALLING A PROCEDURE FROM WITHIN A PROCEDURE.
  18. 9170 ENDPROC PAYMENT
  19. 9180 //
  20. 9190 PROC SUMMARIZE 
  21. 9200   PAYBACK:=MONTHS*MONTHLY'PAYMENT
  22. 9210   INTEREST:=PAYBACK-PRINCIPAL
  23. 9220   PRINT 
  24. 9230   PRINT USING "┴MOUNT BORROWED: $#######.##": PRINCIPAL
  25. 9240   PRINT USING "╘OTAL INTEREST:  $#######.##": INTEREST
  26. 9250   PRINT "                  ----------"
  27. 9260   PRINT USING "╘OTAL PAYBACK:   $#######.##": PAYBACK
  28. 9270 ENDPROC SUMMARIZE
  29.